program Administrator;

uses
  Forms,
  Windows,
  SysUtils,
  DIalogs,
  uDebug,
  MainUnit in 'MainUnit.pas' {AdministratorMainForm},
  GroupDataForm in 'GroupDataForm.pas' {GroupForm},
  StudentsListForm in 'StudentsListForm.pas' {StudentListForm},
  StudentDataForm in 'StudentDataForm.pas' {StudentForm},
  TeacherDataForm in 'TeacherDataForm.pas' {TeacherForm},
  uTexts in 'uTexts.pas',
  StudentsAddGroupForm in 'StudentsAddGroupForm.pas' {FormAddStudent: TTntForm};

{$R *.res}

var
  window: THandle;

begin
  window := FindWindow(nil, 'Golden Temp Administrator');
  if window <> 0 then
  begin
    if IsIconic(window) then
      ShowWindow(window, SW_SHOWNORMAL)
    else
      SetForegroundWindow(window);
    Exit;
  end;

  Application.Initialize;
  Application.Title := 'Golden Temp Administrator';
  Application.HelpFile := 'GoldenTemp.chm';
  Application.CreateForm(TAdministratorMainForm, AdministratorMainForm);
  Application.Run;
end.
